﻿Namespace ExceptionHandling

    Public Class ScannerCancelPressedException
        Inherits ApplicationException

        Public Sub New()
            MyBase.New("Cancel pressed")
        End Sub

        Public Sub New(Message As String, Inner As Exception)
            MyBase.New(Message, Inner)
        End Sub

    End Class

End Namespace
